home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ape-ad1a / dsoundco.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-21  |  1.0 KB  |  44 lines
  1. Attribute VB_Name = "DSoundCode"
  2. Public mySound As New CDXVBSound
  3. Public mySndBuffs(0 To 7) As CDXVBSoundBuffer
  4.  
  5. Public Sub InitDSound()
  6.     mySound.Create frmMain.hWnd
  7.     
  8.     For i = LBound(mySndBuffs) To UBound(mySndBuffs)
  9.         Set mySndBuffs(i) = New CDXVBSoundBuffer
  10.     Next i
  11. End Sub
  12.  
  13. Public Sub CloseDSound()
  14.  
  15. End Sub
  16.  
  17. Public Sub LoadMenuSounds()
  18.     mySndBuffs(0).LoadFromDisk App.Path & Game.SOUND_DIR & "move1.wav", frmMain.hWnd
  19.     mySndBuffs(1).LoadFromDisk App.Path & Game.SOUND_DIR & "ambient1.wav", frmMain.hWnd
  20. End Sub
  21.  
  22. Public Sub PlayMenuAmbient()
  23.     mySndBuffs(1).Play DSBPLAY_LOOPING
  24. End Sub
  25.  
  26. Public Sub PlayMenuMoveSound()
  27.     mySndBuffs(0).StopSound
  28.     mySndBuffs(0).Play 0
  29. End Sub
  30.  
  31. Public Sub StopMenuSounds()
  32.     mySndBuffs(0).StopSound
  33.     mySndBuffs(1).StopSound
  34. End Sub
  35.  
  36. Public Sub LoadChangeLevelSounds()
  37.     mySndBuffs(0).LoadFromDisk App.Path & Game.SOUND_DIR & "type1.wav", frmMain.hWnd
  38. End Sub
  39.  
  40. Public Sub PlayChangeLevelType()
  41.     mySndBuffs(0).StopSound
  42.     mySndBuffs(0).Play 0
  43. End Sub
  44.